icon.|MPlease see the documentation for help on using this program.|M"
effecthandle:help$="This is the HTML
""Effects"" window|MIt allows you to insert HTML colour, size and effect macros.|M"
styleshandle:help$="This is the HTML
""Styles"" window|MIt allows you to insert HTML commands for (sub)headings and other styles.|M"
charhandle:help$="This is the HTML
""Characters"" window|MIt allows you to insert HTML commands for the extended character set, and helps you to easily build up lists (bulletted, numbered or plain).|M"
addresshandle:help$="This is the HTML
""Address"" window|MIt allows you to insert frequently used addresses and email links.|M"
infohandle:help$="HTML
: Version "+ver$+"|M
Richard Goodwin for House of Mabel Design|M"
help$<>""
block%!12=block%!8
block%!16=&503
$(block%+20)=help$+
!block%=(25+
help$)
"Wimp_SendMessage",17,block%,block%!4,0
fileinsert
pos%,temp$
name$="":temp$=""
pos%=0
?(bl+44+pos%)<>0
name$+=
(?(bl+44+pos%))
pos%+=1
GetFileType
GetFileInfo
filetype%
&C85 : temp$="<img src="+
(34)+file$+".jpeg"+
(34)+" border=0 alt="+
(34)+file$+
(34)+">"
&695 : temp$="<img src="+
(34)+file$+".gif"+
(34)+" border=0 alt="+
(34)+file$+
(34)+">"
&FAF : temp$="<a href="+
(34)+file$+".html"+
(34)+">"
&3FB : temp$="<a href="+
(34)+file$+".arc"+
(34)+">"+file$+".arc</a>"
&DDC : temp$="<a href="+
(34)+file$+".spk"+
(34)+">"+file$+".spk</a>"
&FF9 : temp$="<img src="+
(34)+file$+
(34)+" border=0 alt="+
(34)+file$+
(34)+">"
&FFF :
LoadNewDefinitions(name$)
temp$=""
pumping=0
push(temp$):
pumping=1
(pump$)+
(temp$)>255
pump$=pump$+temp$:
GetFileType
"OS_File",5,name$
,,filetype%
q&filetype%=(filetype%
&FFF00)>>>8
GetFileInfo
pos%,q$,noextension$
pos%=
(name$):file$=""
name$,pos%,1)
pos%-=1
q$<>"."
file$=q$+file$
q$="."
noextension$="":pos%=0
pos%+=1
file$,pos%,1)
q$<>"/" noextension$+=q$
q$="/"
pos%>=
(file$)
file$=noextension$
ClickOnChoices
temp$, icon%
(bl!8
4)=1
"Wimp_CloseWindow",,block%
icon%=bl!16
icon%
SaveWindowOpts
LoadWindowOpts
"XOS_CLI","WIPE HTML2:Resources.Windows ~C F R ~V"